perm filename SAIL.TEX[TEX,DEK] blob
sn#419336 filedate 1979-02-18 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 \input basic
C00005 ENDMK
C⊗;
\input basic
\:t←cmtt
\def\tb{20}
\def\tbb{40}
\def\backup{\hjust{\hskip -\tbb pt{}}}
\def\2{\par\hangindent\count7 pt after 0\noindent\backup}
\def\0{\hskip0pt plus 10000pt\penalty0\hskip \tbb pt plus-10000pt\backup}
\def\1{\advcount7 by \tb}
\def\3{\advcount7 by -\tb}
\def\4{\hskip 0pt plus 10000pt\penalty 25\hskip 0pt plus -10000pt}
\def\5{\hskip 0pt plus 10000pt\penalty0\hskip 0pt plus -10000pt}
\def\6{\1\2 \hjust{\hskip-\tb pt}}
\ragged 1000000 \jpar 10000
\def\\#1{\hjust{\sl #1\/\hskip.5pt}}
\def\.#1{\hjust{\:t #1}}
\def\{\hjust{\bf #1}}
\def\z#1{\rm\hsize #1pt\hjust to size{#1 points wide\leaders\hrule\hfill}
\vskip 5pt
\setcount7 \tbb
\2\&{procedure} $\\{initio}$ $\#$ \5 initialize input and output;
\1\2\&{begin} \&{while} $\\{true}$ \&{do}
\1\2\&{begin} $\\{print}(\.{"Input file: "})$;
\0$\\{filename}←\\{inchwl}$;
\0$\\{scanfilename}$;
\2\&{if} $\\{fn}[1]=0$ \&{then}
\0$\\{fn}[1]←\.{".DOC"}$;
\0$\\{open}(\\{ichan}←\\{getchan},\4\.{".DSK"},\40,\40,\419,\40,\40,\4\\{eof})$;
\2\&{end};
\3\2\&{while} $\\{true}$ \&{do}
\1\2\&{begin} $\\{fn}[1]←\.{".PAS"}$;
\2\&{case} $\\{mode}$ \&{of} \&{begin}
\1\6$[0]$ \&{begin} \&{if} $\\{equ}(\\{x}[∞-2\mathrel{\&{to}}∞],\4\.{"..."})$
\&{then} \0\&{return}$(\\{findabbr}(\\{x}))$;
\0$\\{k}←\\{titlroot}$; \0$\\{link}←\\{nstrs}+1$ \2\&{end};
\3\6$[2]$ \&{begin} $\\{k}←\\{conroot}$; \0$\\{link}←0$ \2\&{end};
\3\2\&{end};
\3\2$\\{print}(\.{"Can't write on file "},\4\\{outputfile},\4\.{"!"},\4\\{nextline})$;
\2\&{end};
\3\2$\\{setbreak}(1,\4'14,\4\\{null},\4\.{"INA"})$ $\#$ \5$\\{input}(\\{ichan},1)$
will read up to and including the next $\langle\.{FF}\rangle$;
\2\&{end};
\par\vfill\eject}